home *** CD-ROM | disk | FTP | other *** search
/ Medabots Cardz / Medabots CD Cardz Metabee.bin / mac / assets / metabee.dxr / 00319_Script_319 < prev    next >
Text File  |  2001-12-07  |  1KB  |  36 lines
  1. property myFile, useronline, resetscore
  2. global gotobrassurl, squam, thescore, gNetID, jumbo, beginscore
  3.  
  4.  
  5. on mouseUp me
  6.   --useronline = (the environment).internetConnected 
  7.   --if useronline = #online then
  8.     if objectP(myFile) then set myFile = 0  --Delete the instance if it already exists
  9.     myFile = new(xtra "fileio")    -- Create an instance of FileIO
  10.     --  openFile (myFile, the moviePath &"info.txt",0)--Open the file with R/W access  
  11.     openFile (myFile, squam&"infom.txt",0)--Open the file with R/W access  
  12.     delete(myFile) --deletes the file
  13.     --  createFile (myFile, the moviePath &"info.txt") --creates the file again
  14.     createFile (myFile, squam&"infom.txt") --creates the file again
  15.     --  openFile(myFile,the moviePath &"info.txt",0) --Open the file with R/W access
  16.     openFile(myFile, squam&"infom.txt",0) --Open the file with R/W access
  17.     --  mySaveString = thescore --puts the contents of the field 'input' into the variable mySaveString
  18.     resetscore = 0
  19.     put resetscore into member("holdscore")
  20.     mySaveString = member("holdscore").text
  21.     writeString(myFile,mySaveString) --writes text to the file
  22.     
  23.     closeFile(myFile) -- Close the file 
  24.     myFile = 0 -- Dispose of the instance
  25.     if beginscore = 100 then
  26.       beginscore = 0
  27.     end if
  28.     
  29.     goToNetPage gotobrassurl, "_new"  
  30.     go to the frame - 1
  31.   --else
  32.     --set the blend of member("statusreport")=100
  33.   --end if
  34. end
  35.  
  36.